home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SuperHack
/
SuperHack CD.bin
/
SCRIPTZ
/
SONICK2.ZIP
/
SonicK
/
aliases.ini
next >
Wrap
INI File
|
1997-02-15
|
15KB
|
288 lines
[Aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1
n7=/q /query $$1
n8=/hop /part # | /join #$$1
n9=/send /dcc send $1 $2
n10=/chat /dcc chat $1
n11=/ping /ctcp $$1 ping
n12=colr if ($2* != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n13=color {
n14= if ($1 == msg) { %act = msg $2 | %len = *3 }
n15= elseif ($1 == notice) { %act = notice $2 | %len = *3 }
n16= elseif ($1 == sound) { %act = sound $2 | %len = *3 }
n17= elseif ($1 == echo) { %act = echo | %len = *2 }
n18= elseif ($1 == kick) { %act = kick # $2 | %len = *3 }
n19= elseif ($1 == me) { %act = me | %len = *2 }
n20= elseif ($1 == ame) { %act = ame | %len = *2 }
n21= elseif ($1 == ban) { ban $2 3 | %act = kick # $2 | %len = *3 }
n22= elseif ($1 == amsg) { %act = amsg | %len = *2 }
n23= elseif ($1 == quit) { %act = quit | %len = *2 }
n24= elseif ($1 == onotice) { %act = onotice Ops on # $+ : | %len = *2 }
n25= else { %act = say | %len = *1 }
n26= :script
n27= %i = 0
n28= %rsolt = ""
n29= %already = $replace(%len,$chr(32),$chr(1))
n30= :start
n31= inc %i
n32= if (%i > $len(%already)) { goto resolt }
n33= else { set %rsolt %rsolt $colr($r(1,15),$mid(%i,1,%already)) | goto start }
n34= :resolt
n35= %rsolt = $remove(%rsolt,$chr(32))
n36= %rsolt = $replace(%rsolt,$chr(1),$chr(32))
n37= %act %rsolt
n38=}
n39=F5 ignore -uti30 *!*@* | echo 4 *** 30 SeCondS Of Global CtCp and InVite ProTeCTion! ***
n40=extrapro {
n41= if ((%ultrapro == OFF) || (%ultrapro == $null)) { echo 4 -s *** Flood ProtecTion AcTivaTed. | %ultrapro = ON | inc %countpro | .timer 1 15 /unset %countpro | .timer 1 15 /set %ultrapro OFF }
n42= elseif ((%ultrapro == ON) && (%countpro < 7)) { inc %countpro }
n43= elseif ((%ultrapro == ON) && (%countpro >= 7)) { ignore -u40ptin *!*@* | %ultrapro = OFF | unset %countpro | echo 4 $active *** Flood ProtecTion Triggerd iGnoring Everyone For 30 Seconds. *** }
n44= return
n45=}
n46=under { return $chr(31) $+ *1 $+ $chr(31) }
n47=bold { return $chr(2) $+ *1 $+ $chr(2) }
n48=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n49=bb1 { return º╗í½º []baz▀ot[] }
n50=bb2 { return []baz▀ot[] º╗í½º }
n51=grammar { %makeit = "" | %gram = $count(*2,$chr(32)) + 1 | if ($count(*2,$chr(32)) == 0) { return *2 } | %i = 0 | :start | inc %i | if (%i > %gram) { goto end } | elseif (%i == $count(*2,$chr(32))) { set %makeit %makeit $gettok(*2,%i,32) | goto start } | elseif (%i == %gram) { set %makeit %makeit $1 $gettok(*2,%i,32) | goto start } | else { set %makeit %makeit $gettok(*2,%i,32) $+ $chr(44) | goto start } | :end | return %makeit }
n52=isme { if (($1 = $me) || ($address($1,2) = $address($me,2))) { return true } | else { return false } }
n53=isbot { if (($$1 = W) || ($$1 = X)) && (cservice@undernet.org isin $address($$1,1))) { return true } | else { return false } }
n54=cln {
n55= %timer = $ctime | %stat.ch = # | %stat.p = echo 4 -a ***
n56= %stat.p Fast Clone Scan For _-+= # =+-_
n57= %notop = $nopnick(0,%stat.ch) - $vnick(0,%stat.ch)
n58= if ($nick(0,%stat.ch) == 1) { %chan.1 = iS } | else { %chan.1 = Are } | if ($opnick(0,%stat.ch) == 1) { %chan.2 = iS } | else { %chan.2 = Are } | if ($vnick(0,%stat.ch) == 1) { %chan.3 = iS } | else { %chan.3 = Are } | if ($nopnick(0,%stat.ch) == 1) { %chan.4 = iS } | else { %chan.4 = Are }
n59= %stat.p There %chan.1 $nick(0,%stat.ch) Members in %stat.ch , $opnick(0,%stat.ch) Of Them %chan.2 Oped ( $+ $milinum($prec2($opnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) , $vnick(0,%stat.ch) %chan.3 Voiced ( $+ $milinum($prec2($vnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) And %notop %chan.4 Regular Users. ( $+ $milinum($prec2(%notop,$nick(0,%stat.ch))) $+ ) | cln.s
n60=}
n61=cln.s {
n62= write -c $mircdir $+ stats.ini | %i = 0 | :start | inc %i | if (%i > $nick(0,%stat.ch)) { cln.c }
n63= elseif (($stat.i(start,$address($nick(%i,%stat.ch),2)) != $null) && ($stat.i(found,$address($nick(%i,%stat.ch),2)) == $null)) { %lockup = $stat.i(start,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | set %stat.v %stat.v $address($nick(%i,%stat.ch),2) | goto start }
n64= elseif ($stat.i(found,$address($nick(%i,%stat.ch),2)) != $null) { %lockup = $stat.i(found,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | goto start }
n65= else { writeini $mircdir $+ stats.ini start $address($nick(%i,%stat.ch),2) $nick(%i,%stat.ch) | goto start }
n66=}
n67=cln.c { %redic = $count(%stat.v,$chr(32)) + 1 | %s.i = 0 | :start | inc %s.i | if (%stat.v == $null) { %stat.p The Channel _- %stat.ch -_ iS $bold(Free) Of Clones. | goto end } | elseif (%s.i > %redic) { goto end } | else { %showit = $stat.i(found,$gettok(%stat.v,%s.i,32)) | %stat.n = $count(%showit,$chr(32)) + 1 | %stat.p $grammar(And,%showit) Are %stat.n Clients Of ( $+ $gettok(%stat.v,%s.i,32) $+ ) | goto start } | :end | %timer = $ctime - %timer | %stat.p Process: %timer Seconds. | %stat.p The End. | unset %timer %stat* | halt }
n68=pl {
n69= %p = 0
n70= :pl
n71= inc %p
n72= if (%p > $chat(0)) { unset %p | halt }
n73= msg = $+ $chat(%p) < $+ $me $+ > *1
n74= goto pl
n75=}
n76=plme {
n77= %p = 0
n78= :pl
n79= inc %p
n80= if (%p > $chat(0)) { unset %p | halt }
n81= msg = $+ $chat(%p) * $me *1
n82= goto pl
n83=}
n84=plwho {
n85= echo 6 $active nick!user@host
n86= echo 6 $active ==============
n87= %w = 0
n88= :w
n89= inc %w
n90= if (%w > $chat(0)) { unset %w | halt }
n91= echo 6 $active $readini $mircdirwho.ini who $chat(%w)
n92= goto w
n93=}
n94=/poll {
n95= /set %yes 0
n96= /set %no 0
n97= /set %totalvoters 0
n98= /set %question $$?="Enter the question:"
n99= /enable #polls
n100= /msg # The PoLLs ArE oPeN The question is ====>
n101= /msg # [ $+ %question $+ ]
n102= /msg # Type "!yes" for yes and "!no" for no
n103= /msg # the polls will close in 2 mins.......
n104= .timer 1 60 /say Only 60 sec Left To Vote %popver (!yes or !no)
n105= .timer 1 120 /polloff
n106=}
n107=/polloff {
n108= /disable #polls
n109= /set %yes %yes * 100
n110= /set %yes %yes / %totalvoters
n111= /set %no %no * 100
n112= /set %no %no / %totalvoters
n113= /set %totalvoters %totalvoters * 100
n114= /set %totalvoters %totalvoters / $nick(0,#)
n115= /msg # voting is now closed..the votes are being counted..
n116= /msg # %totalvoters $+ % of the users on # voted on =========>[ $+ %question $+ ]<=========
n117= /msg # of that %totalvoters $+ % =YeS's= %yes $+ % and =No'S= %no $+ %
n118= if (%yes > %no) goto yes
n119= if (%yes < %no) goto no
n120= if (%yes = %no) goto equal
n121= :yes
n122= /msg # MaJoriTY VoTeD YeS!!!!
n123= goto end
n124= :no
n125= /msg # MaJoriTY VoTeD No!!!!
n126= goto end
n127= :equal
n128= /msg # THeRe'S a LocK UP!!!!
n129= :end
n130= /unset %no
n131= /unset %yes
n132= /unset %notagain
n133= /unset %totalvoters
n134=}
n135=/backnick {
n136= if #mirc = [ $chan ] halt
n137= if kcuf isin $nick { msg $chan Hi $nick $+ ... | halt }
n138= if tnuc isin $nick { msg $chan Hi $nick $+ ... | halt }
n139= if elohssa isin $nick { msg $chan Hi $nick $+ ... | halt }
n140= if hctib isin $nick { msg $chan Hi $nick $+ ... | halt }
n141= else {
n142= set %charnum 1
n143= :resetchar
n144= if %nickchar [ $+ [ %charnum ] ] != $null { unset %nickchar [ $+ [ %charnum ] ] | inc %charnum 1 | goto resetchar }
n145= set %backnickresult ""
n146= set %nicklength $len($nick)
n147= set %charnum 1
n148= :nickstart
n149= if %charnum <= %nicklength {
n150= set %nickchar [ $+ [ %charnum ] ] $mid(%charnum,1,$nick)
n151= inc %charnum 1
n152= goto nickstart
n153= }
n154= else {
n155= set %charnum $len($nick)
n156= :backresult
n157= set %nickcharset %nickchar [ $+ [ %charnum ] ]
n158= set %backnickresult %backnickresult $+ %nickcharset
n159= dec %charnum 1
n160= if %charnum > 0 goto backresult
n161= else msg $chan %backnickresult iH
n162= }
n163= :end
n164= }
n165=}
n166=/f1 {
n167= if %away == Off {
n168= set %away On
n169= set %returnnick $me
n170= set %awaynick $$?="Enter Away Nick Here"
n171= set %awaymsg $$?="Enter Away Message Here"
n172= .timer 1 2 /nick %awaynick
n173= amsg 11-=<2T12K11>=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+ 2-=- type /ctcp 12 $+ %awaynick $+ 2 tkpage (message) to page me 11=-
n174= .timer909 0 %awaytimer /amsg 11-= 12-=<2T12K12>=- 11=- 2-=- [12Status] 2Away [12Doing] 2 $+ %awaymsg $+ 2-=- type /ctcp 12 $+ %awaynick $+ 2tkpage (message) to page me 11=-
n175= .away %awaymsg
n176= .write -c awaymsg.txt -= -=Message Recorder
n177= .enable #messagerecorder
n178= }
n179= else {
n180= .set %away Off
n181= nick %returnnick
n182= amsg 11-= 12-=<2T12K11>=- 2-=- [12Status] 2Back 11=-
n183= .away
n184= .timer909 off
n185= run awaymsg.txt
n186= .disable #messagerecorder
n187= }
n188=}
n189=/t1 /set -q %chan & $+ $r(A,Z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) | /join %chan | /mode %chan +stin | /timer9 On | /timer999 0 30 /describe %chan ºBartenderº ver 2.0b | /set -q %idle Yes
n190=/unbott /timer999 off | /part %chan | /set -q %idle No | /timer999 off
n191=/cf12 /timers off
n192=/f12 /load -e c:\bott\mbott\bar10.ini | /load -c c:\bott\mbott\bar10.ini | /load -u c:\bott\mbott\bar10.ini | /load -a c:\bott\mbott\bar10.ini | /load -p c:\bott\mbott\bar10.ini | /load -u c:\bott\mbott\bar10.ini | /load -v c:\bott\mbott\bar10.ini
n193=/f10 /load -e c:\ascii\bot1\bot1.ini | /load -c c:\ascii\bot1\bot1.ini | /load -u c:\ascii\bot1\bot1.ini | /load -a c:\ascii\bot1\bot1.ini | /load -p c:\ascii\bot1\bot1.ini | /load -v c:\ascii\bot1\bot1.ini
n194=/f9 /load -e c:\bott\mbott\bar10c.ini | /load -c c:\bott\mbott\bar10c.ini | /load -u c:\bott\mbott\bar10c.ini | /load -a c:\bott\mbott\bar10c.ini | /load -p c:\bott\mbott\bar10c.ini | /load -u c:\bott\mbott\bar10c.ini | /load -v c:\bott\mbott\bar10c.ini
n195=/f8 /load -e c:\bott\simon\simon.ini | /load -c c:\bott\simon\simon.ini | /load -a c:\bott\simon\simon.ini | /load -p c:\bott\simon\simon.ini | /load -u c:\bott\simon\simon.ini | /load -v c:\bott\mbott\bar10.ini
n196=/f7 /load -e c:\bott\simon\kill.ini | /load -c c:\bott\simon\kill.ini | /load -u c:\bott\simon\kill.ini | /load -a c:\bott\simon\kill.ini | /load -p c:\bott\simon\kill.ini | /load -v c:\bott\simon\kill.ini
n197=/f6 /load -e c:\bott\blink\botter.ini | /load -c c:\bott\blink\botter.ini | /load -u c:\bott\blink\botter.ini | /load -a c:\bott\blink\botter.ini | /load -p c:\bott\blink\botter.ini | /load -v c:\bott\blink\botter.ini
n198=/f5 /load -a c:\bott\blink\aliases.ini | /load -p c:\bott\blink\popup.ini | /load -u c:\bott\blink\blink.ini | /load -v c:\bott\blink\variable.ini | /load -c c:\bott\blink\commands.ini | /load -e c:\bott\blink\events.ini | /load -r c:\bott\blink\raw.ini
n199=/f4 /load -a c:\bott\immort\aliases.ini | /load -p c:\bott\immort\popups.ini | /load -e C:\bott\immort\events.ini | /load -c c:\bott\immort\commands.ini | /load -v c:\bott\immort\variable.ini
n200=/f11 /msg SERVICES IDENTIFY #mIRC_Scripts tsauro | /msg SERVICES IDENTIFY #mIRCBar tsauro | /msg SERVICES IDENTIFY #Aladin's_Palace tsauro | /msg SERVICES IDENTIFY #00+friends tsauro
n201=/kb /mode # +b $$1 | /kick # $$1 *2 | /timer 1 30 /mode # -b $$1
n202========================backward talk====================
n203=/backwards {
n204= unset %backtext
n205= if ($1 == -d) {
n206= set %backtext ºá
n207= set %text $remove(*1,$left(3,*1))
n208= }
n209= else { %text = *1 }
n210= %space = $chr(32)
n211= %i = $len(%text) + 1
n212= :next
n213= dec %i 1
n214= if %i == 0 { say %backtext | halt }
n215= %thischar = $mid(%i,1,%text)
n216= if %thischar == %space {
n217= %thislet = á
n218= if %backtext == $null { set %backtext %thislet | goto next }
n219= else { set %backtext %backtext $+ %thislet | goto next }
n220= }
n221= if %backtext == $null { set %backtext %thischar | goto next }
n222= else { set %backtext %backtext $+ %thischar | goto next }
n223=}
n224====================Chan Stats===================
n225=ScaNniNg enable #CloneScan | who #
n226=ScaNaGaiN enable #Status | who #
n227=IRCopScan enable #opscan | who #
n228=======================Random Color======================
n229=/wc {
n230= if ($1 == /me) { %cmd = me | %txt = *2 }
n231= elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
n232= elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
n233= elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
n234= elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
n235= elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
n236= else { %cmd = say | %txt = *1 }
n237= %i = 1 | %ctxt = $chr(3)
n238= :nxtc
n239= %rnd = $rand(1,15)
n240= if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc }
n241= if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
n242= else { %ctxt = %ctxt $+ %rnd }
n243= :nxtchr
n244= if ( $mid( %i, 1, %txt ) != $chr(32) ) {
n245= %ctxt = %ctxt $+ $mid( %i, 1, %txt )
n246= if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
n247= else { %cmd %ctxt }
n248= }
n249= else {
n250= if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
n251= else { %cmd %ctxt }
n252= }
n253= unset %cmd %txt %i %ctxt %rnd
n254=}
n255=======================Coded Talk=======================
n256=/e {
n257= set %ftalk *1
n258= %ftalk = $replace(%ftalk,a,σ)
n259= %ftalk = $replace(%ftalk,b,▀)
n260= %ftalk = $replace(%ftalk,c,⌐)
n261= %ftalk = $replace(%ftalk,d,╨)
n262= %ftalk = $replace(%ftalk,e,δ)
n263= %ftalk = $replace(%ftalk,f,F)
n264= %ftalk = $replace(%ftalk,g,G)
n265= %ftalk = $replace(%ftalk,h,H)
n266= %ftalk = $replace(%ftalk,i,ε)
n267= %ftalk = $replace(%ftalk,j,J)
n268= %ftalk = $replace(%ftalk,k,K)
n269= %ftalk = $replace(%ftalk,l,ú)
n270= %ftalk = $replace(%ftalk,m,M)
n271= %ftalk = $replace(%ftalk,n,±)
n272= %ftalk = $replace(%ftalk,o,°)
n273= %ftalk = $replace(%ftalk,p,╢)
n274= %ftalk = $replace(%ftalk,q,Q)
n275= %ftalk = $replace(%ftalk,r,«)
n276= %ftalk = $replace(%ftalk,s,º)
n277= %ftalk = $replace(%ftalk,t,t)
n278= %ftalk = $replace(%ftalk,u,╡)
n279= %ftalk = $replace(%ftalk,v,V)
n280= %ftalk = $replace(%ftalk,w,\\')
n281= %ftalk = $replace(%ftalk,x,╫)
n282= %ftalk = $replace(%ftalk,y,Ñ)
n283= %ftalk = $replace(%ftalk,z,Z)
n284= say %ftalk
n285=}